home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
21000000
/
21010000
/
shared.dir
/
00957_Script_957
< prev
next >
Wrap
Text File
|
1995-11-17
|
1KB
|
51 lines
-- Handler called by "Pages.dir" MIAW. Looks for
-- QD text in parent movie and compiles it into
-- a global which the MIAW can read. It then places
-- it in its main window.
on grabTextPages
global firstQDPage, lastQDPage, grabbedText
set grabbedText = ""
repeat with i = firstQDPage to lastQDPage
put the text of field i into theText
put theText & RETURN after grabbedText
end repeat
end grabTextPages
---------------------------------------------------
on keepHistory
global lastpathName, movieRef, greyLine, hardDisk
getGreyLine
put line greyLine of field "Menu Listing" into theText
put the number of words in theText into theWords
put word 1 to theWords of theText into movieRef
put the pathName & the moviename into lastpathName
put hardDisk & "History.dir" into childMovie
tell window childMovie
updateHistory
end tell
end keepHistory
------------------------------------------
-- Handler to open the MIAW for keeping screen history.
on openHistoryWindow
global hardDisk
put hardDisk & "History.dir" into childWindow
set the title of window childWindow to "History"
set the windowType of window childWindow = 5
open window childWindow
set the modal of window childWindow to true
end openHistoryWindow
------------------------------------------